dim doc 
set doc = application.ActiveDocument
Set objs = doc.GetObjects(ppcbObjectTypeComponent, "", True)
if objs.count>0 then
	compName = objs.Item(1).PartType
	url = url & compName
	dim wsh
	set wsh = createobject("wscript.shell")
	wsh.run url
	set wsh = nothing
end if
